# Declare the Testclass package
package Testclass;
use vars qw(@ISA);
@ISA = qw(FileTable::Record);

sub testclassSub {
    return "Testclass sub";
}
# Test overriding on store()
sub store {
    my $self = shift;
    # guard for empty record
    if ($self->fields() != 0) {
	$self->{'hackit'} = "hackit";
    }
  FileTable::Record::store($self);
}

1;

